﻿Imports System

Namespace $RootNamespace$
    Public NotInheritable Class $Singleton$
        ' Methods
        Private Sub New()
        End Sub

        Public Shared Sub Test()
            $Singleton$.Instance.Operation()
        End Sub

        Public Sub Operation()
            Console.WriteLine("in $Singleton$'s Operation()")
        End Sub


        ' Properties
        Public Shared ReadOnly Property Instance() As $Singleton$
            Get
                Return $Singleton$._instance
            End Get
        End Property


        ' Fields
        Private Shared ReadOnly _instance As $Singleton$ = New $Singleton$
    End Class
End Namespace